home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / Docs / Tutorials / ClipView.gc < prev    next >
Encoding:
Gui4CLI script  |  1999-12-03  |  2.6 KB  |  108 lines
  1. G4C
  2.  
  3. ;       ClipView.gc
  4. ; --------------------------------------------------------
  5. ; How to use the ClipBoard capabilities.
  6. ; This gui will show you whatever is in the given clipboard 
  7. ; unit. Also you can load/save clips.
  8.  
  9. ; -- The ATTR RESIZE commands are to tell the gui how to
  10. ;    resize itself..
  11. ; --------------------------------------------------------
  12.  
  13. WINBIG 110 40 437 164 'Clipboard Viewer'
  14. WinType 11110001
  15. ResInfo 8 640 256 ; my screen size & font height..
  16.  
  17. xOnLoad
  18.     unit = 0        ; our default clipboard unit
  19.     GuiOpen ClipView.gc
  20.  
  21. xOnClose
  22.     GuiQuit ClipView.gc
  23.  
  24. ; --------------------------------------------------------
  25. ;       Change the clipboard unit
  26. ; --------------------------------------------------------
  27.  
  28. XBUTTON 297 0 20 14 ">"
  29.     attr resize 0000
  30.     ++unit
  31.     gosub clipview.gc changeunit
  32.  
  33. XBUTTON 216 0 20 14 "<"
  34.     attr resize 0000
  35.     --unit
  36.     gosub clipview.gc changeunit
  37.  
  38. XTEXTIN 237 0 59 14 "" unit '0' 10
  39.     attr resize 0000
  40.     gadid 2
  41.     gosub clipview.gc changeunit
  42.  
  43. xRoutine ChangeUnit
  44.     ; make sure the unit is 0-255
  45.     if $unit > 255
  46.        unit = 0
  47.     elseif $unit < 0
  48.        unit = 255
  49.     endif
  50.     ; load the given clip..
  51.     lvuse clipview.gc 1
  52.     lvchange "CLIPS:$unit"
  53.     update clipview.gc 2 $unit
  54.  
  55. ; --------------------------------------------------------
  56. ;       Load a file into the current clipboard unit
  57. ; --------------------------------------------------------
  58.  
  59. XBUTTON 0 0 70 14 "Load.."
  60.     attr resize 0000
  61.     ReqFile  -1 -1 300 -30 'Choose file :' LOAD filename ''
  62.     if $filename > ''
  63.        lvuse clipview.gc 1
  64.        lvchange $filename
  65.        ; now save it so as to write it to the clipboard
  66.        lvsave 'CLIPS:$unit'
  67.     endif
  68.  
  69. ; --------------------------------------------------------
  70. ;       Save the current clipboard unit as a file
  71. ; --------------------------------------------------------
  72.  
  73. XBUTTON 72 0 70 14 "Save.."
  74.     attr resize 0000
  75.     ReqFile  -1 -1 300 -30 'Save as file :' SAVE savename ''
  76.     if $savename > ' '
  77.        ifexists file $savename
  78.           ezreq 'File $savename exists.\nOverwrite ?' Overwrite|CANCEL choice
  79.           if $choice = 0
  80.              stop
  81.           endif
  82.        endif
  83.        lvsave $savename
  84.     endif
  85.  
  86. ; --------------------------------------------------------
  87. ;       Clear the current clipboard unit
  88. ; --------------------------------------------------------
  89.  
  90. XBUTTON 144 0 70 14 "Clear"
  91.     attr resize 0000
  92.     lvuse clipview.gc 1
  93.     lvclear
  94.     ; update the clipboard
  95.     lvsave 'CLIPS:$unit'
  96.  
  97. ; --------------------------------------------------------
  98. ;       The listview
  99. ; --------------------------------------------------------
  100.  
  101. XLISTVIEW 0 15 436 148 "" clipline CLIPS:0 10 NUM
  102.     attr resize 0022
  103.     gadid 1
  104.  
  105.  
  106.  
  107.  
  108.